


	*  APPENDIX 1 
	
	
cd "$data"
use "data1.dta", clear


keep if sample67==1	//  LIMIT THE SAMPLE TO WAVE 6 AND 7 TAKERS. [FOR DESCRIPTIVES]

keep leftRightW* pid6 id 

reshape long leftRightW, i(id) j(wave)

gen leftright = leftRightW
bysort wave: egen mean_leftright = mean(leftright)

collapse (mean) leftRightW mean_leftright, by(wave pid6)
tsset pid6 wave 

keep if wave<7 


lab define wavedates 1 "Feb/Mar'14" 2 "May/Jun'14" 3 "Sept/Oct'14" 4 "Mar'15" 5 "Apr/May'15" 6 "May '15" 
label values wave wavedates 	

twoway (tsline leftRightW if pid6==1, lcolor(navy%100)) (tsline leftRightW if pid6==2, lcolor(cranberry%100)) (tsline leftRightW if pid6==0, lcolor(gs7%100)) (tsline mean_leftright, lcolor(gs7%100) lpattern(dash)) ,tlabel(#6, labels labsize(vsmall) angle(0) valuelabel) legend(off)

graph save "${figures}/figure1_1.gph", replace
